Public Class Escopo

    Private strDescricao As String
    Private strPremissa As String
    Private lstAtividade As List(Of Atividade)
    Private strUnidadeEstimativa As String
    Private strId As String
    Private strIdProjeto As String

    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, ByVal lstAtividade As List(Of Atividade), ByVal strUnidadeEstimativa As String, ByVal strIdProjeto As String, ByVal strId As String)
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstAtividade = lstAtividade
        Me.strUnidadeEstimativa = strUnidadeEstimativa
        Me.strIdProjeto = strIdProjeto
        Me.strId = strId
    End Sub

    Public Sub setDescricao(ByVal Descricao As String)
        strDescricao = Descricao
    End Sub

    Public Function getDescricao() As String
        getDescricao = strDescricao
    End Function

    Public Sub setPremissa(ByVal Premissa As String)
        strPremissa = Premissa
    End Sub

    Public Function getPremissa() As String
        getPremissa = strPremissa
    End Function

    Public Sub setEstimativas(ByVal Atividade As List(Of Atividade))
        lstAtividade = Atividade
    End Sub

    Public Function getEstimativas() As List(Of Atividade)
        getEstimativas = lstAtividade
    End Function

    Public Sub setUnidadeEstimativa(ByVal UnidadeEstimativa As String)
        strUnidadeEstimativa = UnidadeEstimativa
    End Sub

    Public Function getUnidadeEstimativa() As String
        getUnidadeEstimativa = strUnidadeEstimativa
    End Function

    Public Sub setId(ByVal Id As String)
        strId = Id
    End Sub

    Public Function getId() As String
        getId = strId
    End Function

    Public Sub setIdProjeto(ByVal Id As String)
        strIdProjeto = Id
    End Sub

    Public Function getIdProjeto() As String
        getIdProjeto = strIdProjeto
    End Function

    Public Property Descricao() As String
        Get
            Return Me.strDescricao
        End Get
        Set(ByVal Value As String)
            Me.strDescricao = Value
        End Set
    End Property

    Public Property Premissa() As String
        Get
            Return Me.strPremissa
        End Get
        Set(ByVal Value As String)
            Me.strPremissa = Value
        End Set
    End Property

    Public Property UnidadeEstimativa() As String
        Get
            Return Me.strUnidadeEstimativa
        End Get
        Set(ByVal Value As String)
            Me.strUnidadeEstimativa = Value
        End Set
    End Property

    Public Property IdEscopo() As String
        Get
            Return Me.strId
        End Get
        Set(ByVal Value As String)
            Me.strId = Value
        End Set
    End Property

End Class
